﻿Public Class UserAccess
    Inherits ADODBU.RowClass
    Dim _UserID As String
    Public Property UserID() As String
        Get
            Return _UserID
        End Get
        Set(ByVal value As String)
            _UserID = value
        End Set
    End Property
    Dim _pwd As String
    Public Property Pwd() As String
        Get
            Return _pwd
        End Get
        Set(ByVal value As String)
            _pwd = value
        End Set
    End Property
    Dim _ModuleID As String
    Public Property ModuleID() As String
        Get
            Return _ModuleID
        End Get
        Set(ByVal value As String)
            _ModuleID = value
        End Set
    End Property
    Dim _url As String
    Public Property url() As String
        Get
            Return _url
        End Get
        Set(ByVal value As String)
            _url = value
        End Set
    End Property
    Dim _id As String
    Public Property id() As String
        Get
            Return _id
        End Get
        Set(ByVal value As String)
            _id = value
        End Set
    End Property
    Dim _title As String
    Public Property title() As String
        Get
            Return _title
        End Get
        Set(ByVal value As String)
            _title = value
        End Set
    End Property
    Dim _htm As String
    Public Property htm() As String
        Get
            Return _htm
        End Get
        Set(ByVal value As String)
            _htm = value
        End Set
    End Property
End Class
